برترین سورس های ویژال بیسیک 6
آموزشی و همه چی
22 خرداد 1389برچسب:, :: 5:0 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

تبدیل بایت به کیلو بایت

این برنامه خیلی خیلی جالبه...

برای ساخت اون نیاز به ۲ کادر متن و یک دکمه دارید...

API زیر را بارگذاری کنید

Private Declare Function StrFormatByteSize Lib "shlwapi" Alias "StrFormatByteSizeA" (ByVal dw As Long, ByVal pszBuf As String, ByRef cchBuf As Long) As String

دستور زیر رو هم در جنرال بالای ای پی ای بنویسید...

Option Explicit

برای دکمه دستور زیر را نوشته و برنامه را اجرا کنید

On Error Resume Next
    Dim Buffer As String
    Dim Result As String
    Buffer = Space$(255)
    Result = StrFormatByteSize(Text1.Text, Buffer, Len(Buffer))

    If InStr(Result, vbNullChar) > 1 Then
        Text2.Text = Left$(Result, InStr(Result, vbNullChar) - 1)
    End If

موفق باشید

نظر بدین

شما را به خدا

نظر بدین

 

 

صفحه قبل 1 صفحه بعد
موضوعات
پيوندها


ورود اعضا:

<-PollName->

<-PollItems->

خبرنامه وب سایت:





آمار وب سایت:
 

بازدید امروز : 65
بازدید دیروز : 0
بازدید هفته : 106
بازدید ماه : 142
بازدید کل : 224536
تعداد مطالب : 86
تعداد نظرات : 43
تعداد آنلاین : 1